home *** CD-ROM | disk | FTP | other *** search
/ Word Play Farm / Word Play Farm.iso / pc / movies / rwrdfinl.dxr / 00021.ls < prev    next >
Encoding:
Text File  |  1996-07-26  |  941 b   |  52 lines
  1. on startMovie
  2.   global playOn, singStart
  3.   set playOn to 0
  4.   puppetTempo(30)
  5.   set singStart to "1"
  6.   put " " into line 1 of field "1Fld"
  7.   put the number of cast "q" into line 2 of field "1Fld"
  8.   set x to the number of cast "qq"
  9.   repeat with t = 3 to 7
  10.     put x into line t of field "1Fld"
  11.   end repeat
  12.   put field "1Fld" into field "2Fld"
  13.   put field "1Fld" into field "3Fld"
  14.   put field "1Fld" into field "4Fld"
  15.   put field "1Fld" into field "5Fld"
  16.   put field "1Fld" into field "6Fld"
  17.   set the visible of sprite 9 to 1
  18.   set the visible of sprite 10 to 1
  19. end
  20.  
  21. on stopSinging
  22.   puppetSound(0)
  23.   updateStage()
  24.   play done
  25. end
  26.  
  27. on holdSound
  28.   repeat while soundBusy(1)
  29.     nothing()
  30.   end repeat
  31. end
  32.  
  33. on holdSound2
  34.   repeat while soundBusy(2)
  35.     nothing()
  36.   end repeat
  37. end
  38.  
  39. on wait x
  40.   set t to the timer
  41.   repeat while the timer < ((x * 60) + t)
  42.     nothing()
  43.   end repeat
  44. end
  45.  
  46. on idle
  47. end
  48.  
  49. on dslv
  50.   puppetTransition(23, 2, 0, 0)
  51. end
  52.